home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / darth.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  7.6 KB  |  110 lines
  1. 10    REM ----------- DARTH VADER PLOT -----------------------------------------
  2. 20  ' Converted to the IBM-PC from the HP 9845 by G.Wesley  2/27/83
  3. 30  '  ICE -- IBM Computer Enthusiasts of the Lehigh Valley Computer Group
  4. 40  '          Data  215-250-0173
  5. 50  '
  6. 60  CLS:'PRINT " DARTH.BAS -- a gift from ICE to the public domain":FOR I=1 TO 1000:NEXT
  7. 70   ' SCALE -5,30,5,33
  8. 80  CLS:SCREEN 2
  9. 90   REM 
  10. 100   FOR I=1 TO 409
  11. 110   READ Y,X,P
  12. 120      X=(X+5)*640/35
  13. 130      Y=(Y-5)*200/28
  14. 140      Y=200-Y
  15. 150      LINE -(X,Y),P
  16. 160   NEXT I
  17. 170  GOTO 170
  18. 180  DATA 19.89,6.765,0,19.89,6.765,1,22.0925,6.695,1,21.305,6.44,0,20.7425,7.0675
  19. 190  DATA 1,21.345,7.0375,0,20.6775,6.4125,1,21.0075,6.1525,0,21.05,7.36,1,5.77,2.17
  20. 200  DATA 0,8.2325,7.7775,1,9.96,7.735,1,10.78,7.4775,1,11.82,6.7675,1,12.3875,6.335
  21. 210  DATA 1,13.19,6.1875,1,14.155,6.0775,1,17.62,4.6575,1,19.1225,5.9425,1,19.565
  22. 220  DATA 5.585,1,20.4125,5.2725,1,21.235,5.34,1,22.0975,5.7675,1,22.525,6.485,1
  23. 230  DATA 22.715,7.4675,1,22.645,8.15,1,22.415,8.715,1,22.005,9.205,1,20.0425,9.2675
  24. 240  DATA 1,19.7175,8.62,1,19.43,7.785,1,19.37,6.9375,1,19.4725,6.1275,1,19.545,5.605
  25. 250  DATA 1,19.1125,5.94,1,18.87,6.865,1,18.98,7.79,1,19.2825,8.7225,1,19.655,9.47
  26. 260  DATA 1,19.5225,11.19,0,19.11,12.48,1,19.0325,13.455,1,18.9875,14.4275,1,19.0375
  27. 270  DATA 15.4775,1,19.1875,16.4825,1,19.69,17.3525,1,21.1075,17.14,1,21.7525,16.7575
  28. 280  DATA 1,22.54,15.93,1,23.1125,14.7575,1,23.2775,13.7475,1,23.145,12.49,1,22.6025
  29. 290  DATA 11.4725,1,22.36,11.2325,1,19.8175,11.32,1,19.4925,12.545,1,19.42,13.4925
  30. 300  DATA 1,19.385,14.4175,1,19.4575,15.5275,1,19.605,16.5025,1,19.685,17.36,1,17.725
  31. 310  DATA 15.61,1,13.1075,15.0225,1,12.7475,14.495,1,12,13.9775,1,11.55,13.19,1
  32. 320  DATA 10.67,12.7375,1,9.4,12.7375,1,9.2325,8.785,1,10.335,8.7625,1,11.2275,7.795
  33. 330  DATA 1,11.83,6.7625,1,12.4125,6.3325,1,13.1825,6.1675,1,17.73,15.6,0,18.6025
  34. 340  DATA 11.1175,1,18.3525,10.6725,1,18.7575,10.255,1,18.79,9.86,1,18.2725,9.095
  35. 350  DATA 1,20.0575,9.5625,1,20.2475,9.94,1,20.2475,10.2625,1,19.9575,10.61,1,17.125
  36. 360  DATA 10.69,1,17.105,9.17,1,18.275,9.0825,1,18.4775,8.6075,1,17.635,4.65,1,14.1575
  37. 370  DATA 6.09,1,14.675,5.86,1,12.69,5.64,1,13.01,6,1,12.405,6.3325,1,12.24,5.9475
  38. 380  DATA 1,12.7275,5.6425,1,12.7525,14.49,0,13.1625,14.4625,1,13.43,14.8625,1,13.095
  39. 390  DATA 15.02,1,6.3325,14.5125,0,7.4975,14.5125,1,8.685,17.4325,1,10.715,17.39
  40. 400  DATA 1,12.035,17.7725,1,14.9375,19.025,1,15.8025,19.245,1,16.9575,19.295,1
  41. 410  DATA 6.71,22.22,0,8.69,17.4225,1,10.5325,23.9425,1,11.145,24.79,1,11.6925,24.8125
  42. 420  DATA 1,23.7425,20.0975,1,25.1725,20.27,1,26.705,20.09,1,28.7975,19.5025,1,30.0625
  43. 430  DATA 18.565,1,31.01,17.4,1,31.4275,16.23,1,31.7,15.065,1,31.865,13.9425,1,31.8775
  44. 440  DATA 12.7,1,31.28,9.3425,0,31.0525,7.855,1,29.845,5.9375,1,28.915,5.2875,1
  45. 450  DATA 27.8075,4.845,1,26.35,4.595,1,25.1575,4.545,1,23.8775,4.545,1,23.165,4.6575
  46. 460  DATA 1,22.5125,4.4225,1,21.7275,4.16,1,12.975,1.0325,1,11.7825,1.52,1,11.7825
  47. 470  DATA 1.52,1,11.0275,2.215,1,10.4425,3.1675,1,9.9975,4.165,1,9.5875,5.355,1
  48. 480  DATA 9.3175,6.415,1,9.0125,7.7625,1,9.53,7.7375,0,9.78,6.5125,1,10.03,5.4975
  49. 490  DATA 1,10.395,4.375,1,10.7975,3.4125,1,11.34,2.475,1,12.0475,1.835,1,12.81
  50. 500  DATA 1.525,1,12.975,1.035,1,12.84,1.515,1,21.4925,4.525,1,22.1225,5.0475,1
  51. 510  DATA 22.465,5.5175,1,22.875,6.4125,1,23.035,7.4925,1,22.9275,8.1975,1,22.675
  52. 520  DATA 8.7725,1,22.4475,9.095,1,23.88,9.015,0,24.2325,8.3775,1,24.5625,7.4325
  53. 530  DATA 1,24.64,6.7325,1,24.275,5.875,1,24.015,5.42,1,23.3225,4.89,1,21.7325,4.13
  54. 540  DATA 1,22.34,4.6875,1,22.75,5.3075,1,23.0875,6.31,1,23.0425,7.47,1,24.0125
  55. 550  DATA 10.675,0,24.545,11.5775,1,24.895,12.3675,1,25.045,13.0075,1,25.2,13.88
  56. 560  DATA 1,25.2425,14.7075,1,25.2475,15.565,1,25.1025,16.42,1,24.9025,17.25,1,24.6275
  57. 570  DATA 18.1675,1,24.27,19.1725,1,23.75,20.0825,1,22.675,10.7,0,23.045,11.2425
  58. 580  DATA 1,23.4275,12.3825,1,23.6375,13.715,1,23.6325,14.27,1,23.585,14.895,1,23.425
  59. 590  DATA 15.4325,1,23.06,16.2075,1,22.315,17.2275,1,21.5325,17.78,1,13.655,21.2275
  60. 600  DATA 1,13.1375,22.7025,1,12.5175,23.7975,1,11.6625,24.81,1,9.345,17.4125,0
  61. 610  DATA 11.0325,23.71,1,11.4525,24.27,1,12.0925,23.485,1,12.6875,22.44,1,13.32
  62. 620  DATA 20.9,1,13.6375,21.22,1,13.3,20.9075,1,16.9475,19.2825,1,21.2825,17.3675
  63. 630  DATA 1,21.9875,16.96,1,22.885,16.12,1,23.2625,15.4075,1,23.6325,14.2625,1,14.1775
  64. 640  DATA 6.0725,0,17.785,9.1075,1,13.175,6.1675,1,13.205,6.66,0,17.09,9.1625,1
  65. 650  DATA 17.12,10.6875,1,13.4975,14.15,1,13.51,14.52,0,17.9,10.67,1,14.38,14.9225
  66. 660  DATA 1,14.675,15.0675,0,17.9,10.685,1,14.3175,13.35,0,13.6475,13.3625,1,13.6225
  67. 670  DATA 12.5675,1,15.235,12.5,1,15.68,12.055,0,13.595,12.1175,1,13.5925,11.2925
  68. 680  DATA 1,16.6225,11.125,1,17.11,10.6875,0,13.55,10.815,1,13.5325,10.0675,1,17.0725
  69. 690  DATA 9.8975,1,17.0725,9.4025,0,13.48,9.55,1,13.48,8.74,1,16.2325,8.615,1,15.58
  70. 700  DATA 8.2025,0,13.43,8.255,1,13.4125,7.4975,1,14.4425,7.4575,1,13.415,7.49,0
  71. 710  DATA 13.6375,7.8525,1,13.445,8.28,1,13.7625,8.2575,0,13.7625,8.2575,1,13.9425
  72. 720  DATA 7.8225,1,13.715,7.465,1,13.9675,7.49,0,14.2,7.83,1,14.025,8.2425,1,14.305
  73. 730  DATA 8.2425,0,14.4775,7.8425,1,14.235,7.4725,1,14.5625,7.545,0,14.7225,7.8375
  74. 740  DATA 1,14.56,8.215,1,14.885,8.2275,0,15.0375,7.8575,1,15.245,7.9925,0,15.155
  75. 750  DATA 8.2025,1,13.4975,8.745,0,13.695,9.1125,1,13.4825,9.52,1,13.6725,9.52,0
  76. 760  DATA 13.925,9.09,1,13.7125,8.735,1,13.99,8.735,0,14.2,9.075,1,13.9525,9.515
  77. 770  DATA 1,14.245,9.5,0,14.4825,9.095,1,14.2725,8.73,1,14.5825,8.73,0,14.765,9.0675
  78. 780  DATA 1,14.535,9.475,1,14.815,9.455,0,15.0425,9.04,1,14.845,8.7125,1,15.115
  79. 790  DATA 8.7125,0,15.315,9.0575,1,15.0975,9.445,1,15.415,9.445,0,15.635,9.0475
  80. 800  DATA 1,15.44,8.6875,1,15.7,8.6875,0,15.895,9.03,1,15.665,9.4275,1,15.965,9.4275
  81. 810  DATA 0,16.165,9.005,1,15.97,8.6725,1,16.22,8.6725,0,16.4425,8.9925,1,16.18
  82. 820  DATA 9.435,1,16.54,9.3925,0,16.7525,9.01,1,13.52,10.0625,0,13.7975,10.425,1
  83. 830  DATA 13.56,10.815,1,13.865,10.79,0,14.105,10.385,1,13.8875,10.0775,1,14.1025
  84. 840  DATA 10.0775,0,14.335,10.3925,1,14.125,10.76,1,14.4275,10.76,0,14.6325,10.36
  85. 850  DATA 1,14.3775,10.0425,1,14.65,10.0425,0,14.87,10.3575,1,14.6775,10.73,1,14.9775
  86. 860  DATA 10.73,0,15.165,10.35,1,14.945,10.045,1,15.205,10.045,0,15.42,10.3625,1
  87. 870  DATA 15.21,10.7,1,15.4825,10.7,0,15.72,10.3025,1,15.49,10.0125,1,15.7225,10.0125
  88. 880  DATA 0,15.935,10.3075,1,15.7025,10.6925,1,16.015,10.6925,0,16.2375,10.3025
  89. 890  DATA 1,16.0175,9.98,1,16.26,9.98,0,16.4975,10.2875,1,16.2825,10.67,1,16.5825
  90. 900  DATA 10.67,0,16.8325,10.2675,1,16.6175,9.97,1,13.5775,11.3175,0,13.8525,11.6925
  91. 910  DATA 1,13.62,12.0875,1,13.88,12.0875,0,14.1275,11.68,1,13.845,11.32,1,14.1075
  92. 920  DATA 11.32,0,14.38,11.6725,1,14.155,12.055,1,14.445,12.055,0,14.67,11.675,1
  93. 930  DATA 14.38,11.28,1,14.665,11.28,0,14.93,11.6725,1,14.71,12.0275,1,15.0125,12.0275
  94. 940  DATA 0,15.2125,11.66,1,14.9075,11.255,1,15.1775,11.255,0,15.455,11.6425,1,15.2525
  95. 950  DATA 12.0125,1,15.5625,12.0125,0,15.7825,11.64,1,15.4925,11.23,1,15.7325,11.23
  96. 960  DATA 0,16.0125,11.6075,1,15.875,11.8525,1,13.635,12.5775,0,13.895,12.9575,1
  97. 970  DATA 13.65,13.35,1,14.025,13.3275,0,14.255,12.935,1,14.0025,12.5825,1,14.2625
  98. 980  DATA 12.5825,0,14.515,12.9025,1,14.2525,13.325,1,14.81,12.86,0,14.5875,12.5625
  99. 990  DATA 1,14.8825,12.54,0,14.985,12.6875,1,20.7225,10.62,0,20.7225,9.6125,1,21.2575
  100. 1000  DATA 9.6125,1,21.2575,10.6075,1,20.73,10.625,1,32.075,11.71,0,32.0625,11.7275
  101. 1010  DATA 0,31.905,12.6925,1,31.6975,11.71,1,31.04,10.82,1,30.1275,10.5,1,29.225
  102. 1020  DATA 10.415,1,22.4425,10.69,1,21.62,9.9125,1,21.7075,9.8,1,22.31,10.3575,1
  103. 1030  DATA 29.33,10.04,1,30.2975,10.2,1,31.085,10.465,1,31.415,10.715,1,32.05,11.7125
  104. 1040  DATA 1,31.9725,10.595,1,31.555,9.53,1,30.635,9.01,1,29.4175,8.785,1,22.4475
  105. 1050  DATA 9.095,1,21.7,9.785,1,13.14,6.18,0,13.47,14.54,1,14.38,14.91,1,14.68,15.05
  106. 1060  DATA 1,17.72,15.59,1,36.31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  107. 1070  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  108. 1080  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  109. 1090  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  110.